inherited fmAddEditPodrazd: TfmAddEditPodrazd
  Left = 678
  Top = 335
  Width = 621
  Height = 319
  Caption = 'fmAddEditPodrazd'
  Constraints.MinHeight = 319
  Constraints.MinWidth = 621
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 254
    Width = 605
  end
  inherited Panel1: TPanel
    Width = 605
    inherited BitBtn1: TBitBtn
      Left = 427
    end
    inherited BitBtn2: TBitBtn
      Left = 515
    end
  end
  object cxLabel4: TcxLabel [2]
    Left = 16
    Top = 56
    Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object Panel2: TPanel [3]
    Left = 312
    Top = 44
    Width = 305
    Height = 65
    BevelOuter = bvNone
    TabOrder = 3
    Visible = False
    object Label6: TLabel
      Left = 8
      Top = 9
      Width = 100
      Height = 13
      Caption = #1053#1086#1074#1072#1103' '#1076#1072#1090#1072' '#1079#1072#1095#1080#1089#1083'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 144
      Top = 9
      Width = 124
      Height = 13
      Caption = #1053#1086#1074#1072#1103' '#1076#1072#1090#1072' '#1080#1089#1082#1083#1102#1095#1077#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object date_end: TcxDateEdit
      Left = 144
      Top = 30
      ParentFont = False
      Properties.InputKind = ikMask
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 0
      Width = 137
    end
    object date_begin: TcxDateEdit
      Left = 0
      Top = 30
      ParentFont = False
      Properties.InputKind = ikMask
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      TabOrder = 1
      Width = 137
    end
  end
  object cxLabel1: TcxLabel [4]
    Left = 16
    Top = 112
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxMemo1: TcxMemo [5]
    Left = 16
    Top = 136
    TabOrder = 5
    Height = 89
    Width = 577
  end
  object ltvPodr: TdxLookupTreeView [6]
    Left = 16
    Top = 76
    Width = 281
    Height = 27
    CanSelectParents = False
    DropDownRows = 15
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 6
    TabStop = True
    TreeViewColor = clWindow
    TreeViewCursor = crDefault
    TreeViewFont.Charset = DEFAULT_CHARSET
    TreeViewFont.Color = clWindowText
    TreeViewFont.Height = -11
    TreeViewFont.Name = 'MS Sans Serif'
    TreeViewFont.Style = []
    TreeViewIndent = 19
    TreeViewReadOnly = False
    TreeViewShowButtons = True
    TreeViewShowHint = False
    TreeViewShowLines = True
    TreeViewShowRoot = True
    TreeViewSortType = stNone
    DisplayField = 'SDNAME'
    DividedChar = '.'
    ListSource = dsSD
    KeyField = 'SDID'
    ListField = 'SDNAME'
    Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    ParentField = 'SDPARID'
    RootValue = 28
    TextStyle = tvtsShort
    Alignment = taLeftJustify
  end
  inherited dlgDS: TDataSource
    Left = 80
    Top = 8
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 152
    Top = 64
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, SDISDELETE)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, sd.SDISDELETE FROM' +
        ' SYS_DIC SD'
      '      WHERE sd.SDPARID = :sdparid'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, sd1.SDISDELETE'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID, SDISDELETE FROM tree t'
      ') AS t1'
      'WHERE t1.SDISDELETE = 0'
      'order by 3')
    GeneratorField.Field = 'SDID'
    Left = 192
    Top = 64
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'sdparid'
        ParamType = ptUnknown
      end>
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 255
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
    object qSDSDISDELETE: TIntegerField
      FieldName = 'SDISDELETE'
      ProviderFlags = []
    end
  end
  object qCheckChild: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = dsSD
    SQL.Strings = (
      'SELECT t1.*, SD1.SDISDELETE'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID, o)'
      
        '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID, CAST('#39#39' AS VARCHAR' +
        '(2048)) AS o FROM SYS_DIC SD'
      '      WHERE sd.SDPARID = :SDID'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID, '#39' '#39' || o'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  o || SDNAME AS SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'INNER JOIN SYS_DIC sd1 ON sd1.SDID = t1.sdid')
    Left = 248
    Top = 32
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'SDID'
        ParamType = ptUnknown
      end>
  end
end
